home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / ExamineAll.AMOS / ExamineAll.amosSourceCode
Encoding:
AMOS Source Code  |  1995-09-29  |  355 b   |  19 lines
  1. Screen Open 0,640,256,2,$8000
  2. Curs Off 
  3. Dim D$(1000)
  4. D$(0)="Work:"
  5. L=1
  6. N$=""
  7. Do 
  8.   Dec L : Exit If L<0
  9.   OD$=D$(L)
  10.    Extension_8_063A OD$
  11.   Home : Cline : Print OD$
  12.   Do 
  13.     F$= Extension_8_064C 
  14.     Exit If F$=""
  15.     D$= Extension_8_03EC(OD$)+F$
  16.     If Len(D$)>Len(N$) Then N$=D$ : Print N$
  17.     If Extension_8_0688 >0 Then D$(L)=D$ : Inc L
  18.   Loop 
  19. Loop